DirDelete Subroutine

public subroutine DirDelete(dir)

delete a directory

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: dir

Variables

Type Visibility Attributes Name Initial
character(len=100), public :: cmd

Source Code

SUBROUTINE DirDelete &
!
(dir)

IMPLICIT NONE

!Arguments with intent(in):
CHARACTER (LEN = *), INTENT(IN) :: dir 

! Local declarations:  
CHARACTER (LEN = 100)      :: cmd
!------------end of declaration------------------------------------------------

IF (GetOS () == WIN32) THEN !detected Windows OS
    cmd = 'rmdir ' // dir
    CALL System (cmd)
ELSE !detected unix like OS, including linux
    cmd = 'rm -R ' // dir
    CALL System (cmd)
END IF


END SUBROUTINE DirDelete